CONCLUSIONES
conclusión tema 10
el tema 10 fue estructuras de control de visual basic donde volvimos a ver diferentes estructuras conocidos como estructura simple,doble y múltiple pero de distintas formas ya que en el caso de múltiple aprendimos la select case donde es mas cómodo usarlo, o por ejemplo la estructura while ,mientra,sin olvidar if ,elseif y else hasta end if , aprendimos usar el do loop y tambien diferentes códigos por ejemplo el console.foregroundcolor,como es que es diferente a pseint visual studio y que hay diferentes codigos de que usar por ejemplo para definir un numero esta long,char ,integer and decimal y para definir se usa Dim,en si la mayor parte ya con estructuras en visual studio es en ingles.
conclusión tema 11
el tema 11 fue procedimientos y funciones en visual basic donde en vez de escribir mas podiamos crear ya sea un procedimiento o función o las dos si es necesario y llamarlas a la primera sub,un procedimiento solo se puede escribir la variable que hoy se llama procedimiento es distinta a función ya que se empiez cpn sub ,mienstra que función con functión y se termina retornando a tal ecuación por ejemplo como return y en la función por ejem,calarea() dentro del parentesis se pone la variable en los dos lados,los dos sub,tambien vimos que hay diferentes códigos, que se puede poner la hora con un color distintos,que se pueden poner varias estructuras diferentes y otros codigos como a new random para elegir un numero de x numeros por ejemplo en una rifa,etc.
conclusiones tema 12
en el tema 12 vimos ya lo que son los areglos en visual basic donde pudimos ver que se podian agregar mas de 15 nombres de la categoria de deporte por ejemplo o hacer una tabla de matrices donde podemos sumar ambas matrices ,en los areglos, o tambien que se puede tomar o substraer las letras de una palabra con lengthya por ejemplo poniendo -1 depende si hay un guión en un numero de telefono,
ta,bien que hay diferentes formas de poner areglos y varios con diferente variable y definirlo como entero o decimal,tambien que existe el unidimensional,bidimensional y tridimensional ya en caso como la hora del dia de x mes entre otras cosas,los areglos ayudan mucho paradiferentes dificultades que se tienen como en el juego del ahorcado entre otros.
Este es el portafolio de la materia programación 1 de la cuales nosotros los estudiantes mostramos nuestros aprendizajes obtenidos al hacer los ejercicios de diferentes tipos de conversiones o problemas que nos plantea y dar la conclusión de cada tema.
Mostrando entradas con la etiqueta 3° periodo. Mostrar todas las entradas
Mostrando entradas con la etiqueta 3° periodo. Mostrar todas las entradas
domingo, 15 de noviembre de 2015
practica 12
PRÁCTICA 12:
ARREGLOS EN VB .NET
1. Crear una aplicación para capturar el nombre de 10 personas y luego mostrarlos ordenados y en letras mayúsculas.
Private Property texto As Object
Sub Main()
Dim nombre(9) As String
For i = 0 To 9
Console.WriteLine("nombre de la persona " & i + 1)
nombre(i) = Console.ReadLine
Next
Console.Clear()
For i = 0 To 9
Console.WriteLine(nombre(i).ToUpper)
Array.Sort(nombre)
Next
Console.ReadLine()
End Sub
End Module
1. Crear una aplicación para capturar el nombre de 10 personas y luego mostrarlos ordenados y en letras mayúsculas.
Private Property texto As Object
Sub Main()
Dim nombre(9) As String
For i = 0 To 9
Console.WriteLine("nombre de la persona " & i + 1)
nombre(i) = Console.ReadLine
Next
Console.Clear()
For i = 0 To 9
Console.WriteLine(nombre(i).ToUpper)
Array.Sort(nombre)
Next
Console.ReadLine()
End Sub
End Module
PRÁCTICA 11:
PROCEDIMIENTOS Y FUNCIONES EN VB .NET
Ejercicios a resolver: deberá colocar en el e-portafolio el enunciado del ejercicio y el código en Visual Basic .NET de los ejercicios pares o impares.
Indicaciones: en Visual Studio crear un proyecto de tipo Aplicación de Consola y crear un módulo con un procedimiento principal por cada uno de los siguientes ejercicios.
1. Escriba un procedimiento que imprima la hora actual en color amarillo.
Module Module1
Sub Main()
hora()
Console.ReadLine()
End Sub
Sub hora()
Console.ForegroundColor = ConsoleColor.Yellow
Console.WriteLine("hora actual es " & TimeOfDay)
End Sub
End Module
3. Escriba una aplicación para capturar el número de teléfono de 5 participantes y que posea un procedimiento que seleccione e imprima de forma aleatoria el número de teléfono ganador.
Module Module1
Sub Main()
Console.WriteLine("seleccione el telefono ganador")
Console.WriteLine("escriba los 5 numeros de telefono")
num()
Console.ReadLine()
End Sub
Sub num()
Dim t(4) As Integer
For i = 0 To 4
t(i) = Console.ReadLine
Next
Dim re As New Random
Dim n As Integer
n = re.Next(0, 4)
Console.WriteLine("el numero ganador es " & t(n))
End Sub
End Module
5. Elaborar una aplicación para simular un cajero automático, que solicite la cantidad de dinero a retirar (debe ser múltiple de 5) y que envíe dicho valor a un procedimiento que muestre la cantidad de billetes de cada denominación a entregar al usuario (Pueden ser únicamente billetes de $20, $10 y $5 dólares).
Module Module2
Sub main()
Dim din As Integer
Console.WriteLine("cantidad de dinero a retirar es")
din = Console.ReadLine
If din Mod 5 = 0 Then
vuelto(din)
Else
Console.WriteLine("la cantidad debe ser multiplo de 5")
End If
Console.ReadLine()
End Sub
Sub vuelto(ByVal din As Integer)
Dim billetes5 As Integer
Dim billetes10 As Integer
Dim billetes20 As Integer
While din >= 20
billetes20 = billetes20 + 1
din = din - 20
End While
While din >= 10
billetes10 = billetes10 + 1
din = din - 10
End While
While din >= 5
billetes5 = billetes5 + 1
din = din - 5
End While
If din = 0 Then
Console.WriteLine("billetes de 20 son= $" & billetes20)
Console.WriteLine("billetes de 10 son= $" & billetes10)
Console.WriteLine("billetes de 5 son= $" & billetes5)
End If
End Sub
End Module
7. Escriba una aplicación para calcular la nota final de un alumno, utilizando el sistema de evaluación de la materia programación I, crear una sola función que permita calcular la nota promedio de cada periodo.
Module Module3
Sub main()
Dim n1, n2, n3, pr1, pr2, pr3, nfinal As Decimal
Console.WriteLine("notas periodo 1")
Console.WriteLine("nota 1 (25%)")
n1 = Console.ReadLine
Console.WriteLine("nota 2 (25%)")
n2 = Console.ReadLine
Console.WriteLine("nota 3 (50%)")
n3 = Console.ReadLine
pr1 = prom(n1, n2, n3)
Console.Clear()
Console.WriteLine("notas periodo 2")
Console.WriteLine("nota 1 (25%)")
n1 = Console.ReadLine
Console.WriteLine("nota 2 (25%)")
n2 = Console.ReadLine
Console.WriteLine("nota 3 (50%)")
n3 = Console.ReadLine
pr2 = prom(n1, n2, n3)
Console.Clear()
Console.WriteLine("notas periodo 3")
Console.WriteLine("nota 1 (25%)")
n1 = Console.ReadLine
Console.WriteLine("nota 2 (25%)")
n2 = Console.ReadLine
Console.WriteLine("nota 3 (50%)")
n3 = Console.ReadLine
pr3 = prom(n1, n2, n3)
nfinal = (pr1 + pr2 + pr3) / 3
Console.WriteLine("promedio final es= " & nfinal)
Console.ReadLine()
End Sub
Function prom(ByVal a As Decimal, ByVal b As Decimal, ByVal c As Decimal) As Decimal
Dim total As Decimal
total = ((a * 0.25) + (b * 0.25) + (c * 0.5))
Return FormatNumber(total, 1)
End Function
End Module
Ejercicios a resolver: deberá colocar en el e-portafolio el enunciado del ejercicio y el código en Visual Basic .NET de los ejercicios pares o impares.
Indicaciones: en Visual Studio crear un proyecto de tipo Aplicación de Consola y crear un módulo con un procedimiento principal por cada uno de los siguientes ejercicios.
1. Escriba un procedimiento que imprima la hora actual en color amarillo.
Module Module1
Sub Main()
hora()
Console.ReadLine()
End Sub
Sub hora()
Console.ForegroundColor = ConsoleColor.Yellow
Console.WriteLine("hora actual es " & TimeOfDay)
End Sub
End Module
3. Escriba una aplicación para capturar el número de teléfono de 5 participantes y que posea un procedimiento que seleccione e imprima de forma aleatoria el número de teléfono ganador.
Module Module1
Sub Main()
Console.WriteLine("seleccione el telefono ganador")
Console.WriteLine("escriba los 5 numeros de telefono")
num()
Console.ReadLine()
End Sub
Sub num()
Dim t(4) As Integer
For i = 0 To 4
t(i) = Console.ReadLine
Next
Dim re As New Random
Dim n As Integer
n = re.Next(0, 4)
Console.WriteLine("el numero ganador es " & t(n))
End Sub
End Module
5. Elaborar una aplicación para simular un cajero automático, que solicite la cantidad de dinero a retirar (debe ser múltiple de 5) y que envíe dicho valor a un procedimiento que muestre la cantidad de billetes de cada denominación a entregar al usuario (Pueden ser únicamente billetes de $20, $10 y $5 dólares).
Module Module2
Sub main()
Dim din As Integer
Console.WriteLine("cantidad de dinero a retirar es")
din = Console.ReadLine
If din Mod 5 = 0 Then
vuelto(din)
Else
Console.WriteLine("la cantidad debe ser multiplo de 5")
End If
Console.ReadLine()
End Sub
Sub vuelto(ByVal din As Integer)
Dim billetes5 As Integer
Dim billetes10 As Integer
Dim billetes20 As Integer
While din >= 20
billetes20 = billetes20 + 1
din = din - 20
End While
While din >= 10
billetes10 = billetes10 + 1
din = din - 10
End While
While din >= 5
billetes5 = billetes5 + 1
din = din - 5
End While
If din = 0 Then
Console.WriteLine("billetes de 20 son= $" & billetes20)
Console.WriteLine("billetes de 10 son= $" & billetes10)
Console.WriteLine("billetes de 5 son= $" & billetes5)
End If
End Sub
End Module
7. Escriba una aplicación para calcular la nota final de un alumno, utilizando el sistema de evaluación de la materia programación I, crear una sola función que permita calcular la nota promedio de cada periodo.
Module Module3
Sub main()
Dim n1, n2, n3, pr1, pr2, pr3, nfinal As Decimal
Console.WriteLine("notas periodo 1")
Console.WriteLine("nota 1 (25%)")
n1 = Console.ReadLine
Console.WriteLine("nota 2 (25%)")
n2 = Console.ReadLine
Console.WriteLine("nota 3 (50%)")
n3 = Console.ReadLine
pr1 = prom(n1, n2, n3)
Console.Clear()
Console.WriteLine("notas periodo 2")
Console.WriteLine("nota 1 (25%)")
n1 = Console.ReadLine
Console.WriteLine("nota 2 (25%)")
n2 = Console.ReadLine
Console.WriteLine("nota 3 (50%)")
n3 = Console.ReadLine
pr2 = prom(n1, n2, n3)
Console.Clear()
Console.WriteLine("notas periodo 3")
Console.WriteLine("nota 1 (25%)")
n1 = Console.ReadLine
Console.WriteLine("nota 2 (25%)")
n2 = Console.ReadLine
Console.WriteLine("nota 3 (50%)")
n3 = Console.ReadLine
pr3 = prom(n1, n2, n3)
nfinal = (pr1 + pr2 + pr3) / 3
Console.WriteLine("promedio final es= " & nfinal)
Console.ReadLine()
End Sub
Function prom(ByVal a As Decimal, ByVal b As Decimal, ByVal c As Decimal) As Decimal
Dim total As Decimal
total = ((a * 0.25) + (b * 0.25) + (c * 0.5))
Return FormatNumber(total, 1)
End Function
End Module
sábado, 14 de noviembre de 2015
practica 10
PRÁCTICA 10:
ESTRUCTURAS DE CONTROL EN VB .NET
Ejercicios a resolver: deberá colocar en el e-portafolio el enunciado del ejercicio y el código en Visual Basic .NET de los ejercicios pares o impares.
Indicaciones: en Visual Studio crear un proyecto de tipo Aplicación de Consola y crear un módulo con un procedimiento principal por cada uno de los siguientes ejercicios.
1. Capturar por teclado la cantidad vendida y si la venta supera los 25,000 imprimir el mensaje meta superada.
Module Module1
Sub Main()
Dim venta As Decimal
Console.WriteLine("escriba el monto de venta")
venta = Console.ReadLine
Console.WriteLine()
If venta > 25000 Then
Console.WriteLine("meta superada")
End If
Console.ReadLine()
End Sub
End Module
3-Capturar el nombre y sueldo de un empleado, si el empleado posee un sueldo menor a 400 realizar un aumento del 10% y si el sueldo es superior realizar un aumento del 5%, mostrar el nuevo sueldo.
Module Module3
Sub main()
Dim nombre As String
Dim sueldo, nuevosueldo As Decimal
Console.WriteLine("introduzca su nombre")
nombre = Console.ReadLine
Console.WriteLine("introduza su sueldo")
sueldo = Console.ReadLine
If sueldo < 400 Then
nuevosueldo = sueldo * 1.1
Console.WriteLine(nombre & " tu nuevo sueldo es " & nuevosueldo)
Else
nuevosueldo = sueldo * 1.05
Console.WriteLine(nombre & " tu nuevo sueldo es " & nuevosueldo)
End If
Console.ReadLine()
End Sub
End Module
5-Capturar el salario de una cantidad de empleados especificada por el usuario a través del teclado, calcular e imprimir el promedio de salarios, el salario mayor, el salario menor y el monto total de todos los salarios.
Module Module1
Sub Main()
Dim n As Integer
Dim suel, suelto, prosuel, menor, mayor As Decimal
Console.WriteLine("cantidad de empleados")
n = Console.ReadLine
For i = 1 To n
Console.WriteLine("sueldo del empleado " & i)
suel = Console.ReadLine
suelto = suelto + suel
prosuel = suelto / n
If suel > mayor Then
mayor = suel
End If
If suel < menor Then
menor = suel
End If
Next
Console.WriteLine("cantidad de empleados son " & n)
Console.WriteLine("promedio del sueldo de los empleados es $" & prosuel)
Console.WriteLine("sueldo mayo es $" & mayor)
Console.WriteLine("sueldo menor es $" & menor)
Console.ReadLine()
End Sub
End Module
7. Capturar por teclado un número de teléfono, calcular e imprimir cuantos dígitos pares e impares posee.
Module Module1
Sub Main()
Dim tel As String
Dim numpares, numimpares As Integer
Console.WriteLine("Escriba numero de telefono")
tel = Console.ReadLine
For i = 0 To tel.length - 1
If tel.Substring(i, 1) Mod 2 = 0 Then
numpares = numpares + 1
Else
numimpares = numimpares + 1
End If
Next
Console.WriteLine("numeros pares son= " & numpares)
Console.WriteLine("numeros impares son= " & numimpares)
Console.ReadLine()
End Sub
End Module
9. Escriba un programa que proporcione al usuario un menú con las siguientes opciones de conversión de decimal a [1] binario, [2] octal, [3] hexadecimal y [4] salir.
Module Module2
Sub main()
Dim op, num As Integer
Dim a, b, c As String
Console.WriteLine("conversión de decimal a bases numericas")
Console.WriteLine("eliga una opción")
Console.WriteLine("[1] binario")
Console.WriteLine("[2] octal")
Console.WriteLine("[3] hexadecimal")
Console.WriteLine("[4] salir")
Console.WriteLine("¿su opción es?")
op = Console.ReadLine
If op = 4 Then
Exit Sub
Console.WriteLine("escriba un numero")
num = Console.ReadLine
Select Case op
Case 1
Console.WriteLine("convertir de decimal a binario")
Do Until num < 2
b = b & CStr(num Mod 2)
num = Int(num Mod 2)
Loop
b = b & num
c = StrReverse(b)
Console.WriteLine()
Console.WriteLine("respuesta" & b)
Case 2
Console.WriteLine("convirtiendo" & num & "a octal")
num = Oct(num)
Console.WriteLine("respuesta" & num)
Case 3
Console.WriteLine("convertir" & num & " a hexadecimal")
a = Hex(num)
Console.WriteLine("respuesta" & a)
End Select
End If
End Sub
End Module
Ejercicios a resolver: deberá colocar en el e-portafolio el enunciado del ejercicio y el código en Visual Basic .NET de los ejercicios pares o impares.
Indicaciones: en Visual Studio crear un proyecto de tipo Aplicación de Consola y crear un módulo con un procedimiento principal por cada uno de los siguientes ejercicios.
1. Capturar por teclado la cantidad vendida y si la venta supera los 25,000 imprimir el mensaje meta superada.
Module Module1
Sub Main()
Dim venta As Decimal
Console.WriteLine("escriba el monto de venta")
venta = Console.ReadLine
Console.WriteLine()
If venta > 25000 Then
Console.WriteLine("meta superada")
End If
Console.ReadLine()
End Sub
End Module
3-Capturar el nombre y sueldo de un empleado, si el empleado posee un sueldo menor a 400 realizar un aumento del 10% y si el sueldo es superior realizar un aumento del 5%, mostrar el nuevo sueldo.
Module Module3
Sub main()
Dim nombre As String
Dim sueldo, nuevosueldo As Decimal
Console.WriteLine("introduzca su nombre")
nombre = Console.ReadLine
Console.WriteLine("introduza su sueldo")
sueldo = Console.ReadLine
If sueldo < 400 Then
nuevosueldo = sueldo * 1.1
Console.WriteLine(nombre & " tu nuevo sueldo es " & nuevosueldo)
Else
nuevosueldo = sueldo * 1.05
Console.WriteLine(nombre & " tu nuevo sueldo es " & nuevosueldo)
End If
Console.ReadLine()
End Sub
End Module
5-Capturar el salario de una cantidad de empleados especificada por el usuario a través del teclado, calcular e imprimir el promedio de salarios, el salario mayor, el salario menor y el monto total de todos los salarios.
Module Module1
Sub Main()
Dim n As Integer
Dim suel, suelto, prosuel, menor, mayor As Decimal
Console.WriteLine("cantidad de empleados")
n = Console.ReadLine
For i = 1 To n
Console.WriteLine("sueldo del empleado " & i)
suel = Console.ReadLine
suelto = suelto + suel
prosuel = suelto / n
If suel > mayor Then
mayor = suel
End If
If suel < menor Then
menor = suel
End If
Next
Console.WriteLine("cantidad de empleados son " & n)
Console.WriteLine("promedio del sueldo de los empleados es $" & prosuel)
Console.WriteLine("sueldo mayo es $" & mayor)
Console.WriteLine("sueldo menor es $" & menor)
Console.ReadLine()
End Sub
End Module
7. Capturar por teclado un número de teléfono, calcular e imprimir cuantos dígitos pares e impares posee.
Module Module1
Sub Main()
Dim tel As String
Dim numpares, numimpares As Integer
Console.WriteLine("Escriba numero de telefono")
tel = Console.ReadLine
For i = 0 To tel.length - 1
If tel.Substring(i, 1) Mod 2 = 0 Then
numpares = numpares + 1
Else
numimpares = numimpares + 1
End If
Next
Console.WriteLine("numeros pares son= " & numpares)
Console.WriteLine("numeros impares son= " & numimpares)
Console.ReadLine()
End Sub
End Module
9. Escriba un programa que proporcione al usuario un menú con las siguientes opciones de conversión de decimal a [1] binario, [2] octal, [3] hexadecimal y [4] salir.
Module Module2
Sub main()
Dim op, num As Integer
Dim a, b, c As String
Console.WriteLine("conversión de decimal a bases numericas")
Console.WriteLine("eliga una opción")
Console.WriteLine("[1] binario")
Console.WriteLine("[2] octal")
Console.WriteLine("[3] hexadecimal")
Console.WriteLine("[4] salir")
Console.WriteLine("¿su opción es?")
op = Console.ReadLine
If op = 4 Then
Exit Sub
Console.WriteLine("escriba un numero")
num = Console.ReadLine
Select Case op
Case 1
Console.WriteLine("convertir de decimal a binario")
Do Until num < 2
b = b & CStr(num Mod 2)
num = Int(num Mod 2)
Loop
b = b & num
c = StrReverse(b)
Console.WriteLine()
Console.WriteLine("respuesta" & b)
Case 2
Console.WriteLine("convirtiendo" & num & "a octal")
num = Oct(num)
Console.WriteLine("respuesta" & num)
Case 3
Console.WriteLine("convertir" & num & " a hexadecimal")
a = Hex(num)
Console.WriteLine("respuesta" & a)
End Select
End If
End Sub
End Module
Suscribirse a:
Entradas (Atom)